BBS in a Box 9/AMUG BBS in a Box Volume IX (August 1993) (MacWizards).iso/Files/Hyper/D/DirStack.cpt/DirStack/GEnie Directory/background_2607.txt

Text File | 1987-09-08 | 9.8 KB | 485 lines

-- background: 2607 from stack: in
-- bmap block id: 14744
-- flags: 0000
-- background id: 0
-- name:


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=90 top=41 right=60 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: File Number


-- part 5 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=217 top=67 right=85 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: File Name


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=217 top=87 right=105 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Type


-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=217 top=107 right=125 bottom=388
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Uploader


-- part 8 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=217 top=127 right=145 bottom=388
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Upload Date


-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=217 top=147 right=165 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Size


-- part 10 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=217 top=167 right=185 bottom=388
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Number of Downloads


-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=217 top=187 right=205 bottom=388
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Library Number


-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=217 top=207 right=256 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Description


-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=114 top=293 right=339 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: previous
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=163 top=293 right=339 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=212 top=293 right=339 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=261 top=293 right=339 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  repeat with j = 7 to 15
    set visible of bkgnd button j to true
  end repeat
  set visible of bkgnd button "Do Sort" to true
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=22 right=68 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go home
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=460 top=19 right=68 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 12195 / 12195
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Import File
----- HyperTalk script -----
on mouseUp
  readfile
end mouseUp



-- part 31 (button)
-- low flags: 80
-- high flags: 0006
-- rect: left=67 top=41 right=59 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Number
----- HyperTalk script -----
on mouseUp
  repeat with j = 7 to 15
    set hilite of bkgnd button j to false
  end repeat
  set hilite of target to true
end mouseUp



-- part 32 (button)
-- low flags: 80
-- high flags: 0006
-- rect: left=199 top=67 right=85 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Name
----- HyperTalk script -----
on mouseUp
  repeat with j = 7 to 15
    set hilite of bkgnd button j to false
  end repeat
  set hilite of target to true
end mouseUp



-- part 33 (button)
-- low flags: 80
-- high flags: 0006
-- rect: left=199 top=87 right=105 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Type
----- HyperTalk script -----
on mouseUp
  repeat with j = 7 to 15
    set hilite of bkgnd button j to false
  end repeat
  set hilite of target to true

end mouseUp



-- part 36 (button)
-- low flags: 80
-- high flags: 0006
-- rect: left=199 top=107 right=125 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Uploader
----- HyperTalk script -----
on mouseUp
  repeat with j = 7 to 15
    set hilite of bkgnd button j to false
  end repeat
  set hilite of target to true

end mouseUp



-- part 37 (button)
-- low flags: 80
-- high flags: 0006
-- rect: left=199 top=127 right=145 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Upload Date
----- HyperTalk script -----
on mouseUp
  repeat with j = 7 to 15
    set hilite of bkgnd button j to false
  end repeat
  set hilite of target to true

end mouseUp



-- part 38 (button)
-- low flags: 80
-- high flags: 4006
-- rect: left=199 top=147 right=165 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File Size
----- HyperTalk script -----
on mouseUp
  repeat with j = 7 to 15
    set hilite of bkgnd button j to false
  end repeat
  set hilite of target to true

end mouseUp



-- part 39 (button)
-- low flags: 80
-- high flags: 0006
-- rect: left=199 top=167 right=185 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Number of Downloads
----- HyperTalk script -----
on mouseUp
  repeat with j = 7 to 15
    set hilite of bkgnd button j to false
  end repeat
  set hilite of target to true

end mouseUp



-- part 40 (button)
-- low flags: 80
-- high flags: 0006
-- rect: left=199 top=187 right=205 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Library Number
----- HyperTalk script -----
on mouseUp
  repeat with j = 7 to 15
    set hilite of bkgnd button j to false
  end repeat
  set hilite of target to true

end mouseUp



-- part 41 (button)
-- low flags: 80
-- high flags: 0006
-- rect: left=199 top=207 right=225 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Description
----- HyperTalk script -----
on mouseUp
  repeat with j = 7 to 15
    set hilite of bkgnd button j to false
  end repeat
  set hilite of target to true

end mouseUp



-- part 42 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=318 top=305 right=327 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Do Sort
----- HyperTalk script -----
on mouseUp
  repeat with j = 7 to 15
    if hilite of bkgnd button j = true then
      put short name of bkgnd button j into temp
    end if
    set visible of bkgnd button j to false
  end repeat
  set visible of target to false
  if temp = "Upload Date" then
    sort dateTime by bkgnd field temp
  else
    sort by bkgnd field temp
  end if
end mouseUp